home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
The World of Computer Software.iso
/
namer.zip
/
NAMER.BAS
next >
Wrap
BASIC Source File
|
1993-01-04
|
2KB
|
74 lines
' An attempt at the NAMER program
' Dave Lartigue
' 30 December 1992
' Variables
DIM COUNT AS INTEGER
COUNT = 0
' Program
OPEN "NAMER.DAT" FOR INPUT AS #1
DO UNTIL EOF(1)
COUNT = COUNT + 1
INPUT #1, JUNK$
LOOP
CLOSE #1
DIM SHARED NAME$(COUNT)
COUNT = 0
OPEN "NAMER.DAT" FOR INPUT AS #1
DO UNTIL EOF(1)
COUNT = COUNT + 1
INPUT #1, NAME$(COUNT)
LOOP
CLS
PRINT " NAMER"
PRINT " Random Alias Generator"
PRINT
PRINT " Currently there are"; COUNT; "words in the NAMER.DAT file."
PRINT
PRINT " Press <Esc> to exit, any other key to produce another alias."
PRINT
RANDOMIZE
GetNums:
X = INT(RND * COUNT) + 1
Y = INT(RND * COUNT) + 1
IF X = Y THEN GOTO GetNums
IF RIGHT$(NAME$(X), 1) = "@" OR RIGHT$(NAME$(Y), 1) = "@" THEN GOTO GetNums
IF RIGHT$(NAME$(X), 1) = "*" AND RIGHT$(NAME$(Y), 1) = "*" THEN GOTO GetNums
IF RIGHT$(NAME$(X), 1) = "." AND RIGHT$(NAME$(Y), 1) = "." THEN GOTO GetNums
IF RIGHT$(NAME$(X), 1) = "." THEN
T = X
X = Y
Y = T
END IF
IF RIGHT$(NAME$(Y), 1) = "*" THEN
T = X
X = Y
Y = T
END IF
FIRST$ = NAME$(X)
LAST$ = NAME$(Y)
IF RIGHT$(FIRST$, 1) = "*" THEN
FIRST$ = LEFT$(FIRST$, LEN(FIRST$) - 1)
END IF
IF RIGHT$(LAST$, 1) = "." THEN
LAST$ = LEFT$(LAST$, LEN(LAST$) - 1)
END IF
PRINT FIRST$; " "; LAST$
GetOut:
Y$ = INKEY$
IF Y$ = "" THEN GOTO GetOut
IF ASC(Y$) <> 27 THEN GOTO GetNums